www.gusucode.com > 深度学习(asp)网址导航 v4.0.1 > 深度学习(asp)网址导航 v4.0.1\code\include\function.tag.common.asp

    <%
'┌──────────────────── 深度空间 深度学习 ──┐
'│过程名：do_replace_siteConfig
'│作  用：替换网站基本配置信息标签
'│参  数：ooDeepTemplate： 模版对象
'│说  明：需在文章头部包含 此文件时自动添加 	
'│日  期：2008-2-7 	2010-1-14
'└──────────────────── www.deepstudy.cn ──┘
'function do_replace_siteConfig(strHTML)
function do_replace_siteConfig(byref ooDeepTemplate)

	ooDeepTemplate.replaceTag "Site_Name",		site_siteName					'网站名称
	ooDeepTemplate.replaceTag "Site_Title",	site_siteTitle					'网站标题
	ooDeepTemplate.replaceTag "Site_Url",		site_siteUrl					'网站地址
	
	' 生成静态页判断
	if(isCreateHTML=true) then
		ooDeepTemplate.replaceTag "Site_LogoUrl",	projectRoot2htmlPath&site_upFilesDir & "config/"& site_logoUrl					'Logo地址
	
	else
		ooDeepTemplate.replaceTag "Site_LogoUrl",	projectRootPath&site_upFilesDir & "config/"& site_logoUrl					'Logo地址
	end if
	ooDeepTemplate.replaceTag "Site_WebmasterName",	site_webmasterName		'站长姓名  
	ooDeepTemplate.replaceTag "Site_Copyright",		site_copyright			'版权信息 
	ooDeepTemplate.replaceTag "Site_ICP",		site_ICP						'ICP备案  
	ooDeepTemplate.replaceTag "Site_QQ",		site_QQ						'联系QQ  
	ooDeepTemplate.replaceTag "Site_MSN",		site_MSN						'联系MSN  
	ooDeepTemplate.replaceTag "Site_Email", 	site_Email						'站长信箱 
	ooDeepTemplate.replaceTag "Site_Phone", 	site_phone						'联系电话 
	ooDeepTemplate.replaceTag "Site_MetaKeywords",  	site_metaKeywords		'针对搜索引擎的关键字
	ooDeepTemplate.replaceTag "Site_MetaDescription", 	site_metaDescription	'针对搜索引擎的说明 
	ooDeepTemplate.replaceTag "site_upFilesDir",  	site_upFilesDir		'存放上传文件目录
	ooDeepTemplate.replaceTag "Site_theme",  			site_theme				'网站主题皮肤模版
	ooDeepTemplate.replaceTag "Site_hiddenArea", 		site_hiddenArea		'网站隐藏区域
	ooDeepTemplate.replaceTag "Site_isHTML", 			site_isHTML			'是否html静态 0否 1是

	ooDeepTemplate.replaceTag "SystemEdition", 			SystemEdition 			'程序版本
	ooDeepTemplate.replaceTag "SystemVersion", 			SystemVersion 			'程序版本号
	ooDeepTemplate.replaceTag "SystemBuildDate", 		SystemBuildDate 		'程序版本时间

	'if(isObject(oDeepTemplate))then
		'if not(oDeepTemplate is nothing )then
			'oDeepTemplate.template = strHTML	'
		'end if
	'end if

	do_replace_siteConfig = ooDeepTemplate.template
end function

'┌──────────────────── 深度空间 深度学习 ──┐
'│过程名：do_replace_AD
'│作  用：替换网站基本配置信息标签
'│参  数：strHTML： 模版文件内容
'│说  明：需在文章头部包含 此文件时自动添加 	
'│日  期：2008-2-7 	2009-6-24
'└──────────────────── www.deepstudy.cn ──┘
sub do_replace_AD()
	dim rs,i
	set rs=conn.execute("SELECT count(*) FROM deep_Advertisement")
	for i=1 to rs(0)
		oDeepTemplate.replaceTag "showAdvert("&i&")", showAdvert(i)	
	next
	rs.close
	set rs=nothing
end sub

'┌──────────────────── 深度空间 深度学习 ──┐
'│过程名：do_replace_AD
'│作  用：替换网站基本配置信息标签
'│参  数：strHTML： 模版文件内容
'│说  明：需在文章头部包含 此文件时自动添加 	
'│日  期：2008-2-7 	2009-6-24
'└──────────────────── www.deepstudy.cn ──┘
sub do_replace_Channel()
	dim rs,i
	set rs=conn.execute("SELECT count(*) from (SELECT distinct fplace from deep_channel)")
	for i=0 to rs(0)
		oDeepTemplate.replaceTag "channel("&i&")",getHTML_channel(i)	'导航
	next
	rs.close
	set rs=nothing
end sub



%>